home *** CD-ROM | disk | FTP | other *** search
/ AGA Toolkit '97 / The AGA Toolkit '97.iso / text / misc / port / string / strlen.s < prev    next >
Encoding:
Text File  |  1996-09-07  |  209 b   |  20 lines
  1.  
  2.     XDEF    StrLen
  3.  
  4. ; StrLen() - Calculates the length of a string in A0.
  5.  
  6. ; Result:
  7. ; D0 = Length of the string.
  8.  
  9. StrLen:
  10.     moveq    #0,d0
  11.  
  12. .Loop:
  13.     tst.b    (a0)+
  14.     bne.b    .Longer
  15.     rts
  16.  
  17. .Longer:
  18.     addq.l    #1,d0
  19.     bra.b    .Loop
  20.